home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today - The Disc! 5
/
CD-ROM Today - The Disc (Issue 5)(November 1994).ISO
/
mac
/
DHA demo
/
Don Norman Folder
/
Don Norman demo
/
Don Norman demo.rsrc
/
OWdf_14548_mytest.def
< prev
next >
Wrap
Text File
|
1994-09-21
|
11KB
|
595 lines
WINDOWPROPERTIES
NAME:mytest
CLOSESCRIPT:put @WindowName into wn┬
set the donterase of window wn to winc(wn)
USELOCALRECTS:true
RECT:7,186,151,388
COLLAPSEDRECT:5,60,155,59
HSCROLL:false
VSCROLL:false
GROWICON:false
SCROLL:0,0
COLLAPSED:false
WANTSIDLETIME:true
ANIMATEDCURSORID:0
DONTERASE:false
NEVERSELECT:false
USEPALETTEID:0
CURSOR:128
IDLESCRIPT:
USERDATA:
SELECTSCRIPT:
PUTFILEDIALOGID:4500
SAVEBEFORECLOSING:true
ISCOLLAPSABLE:true
LIMITWINDOWRECT:true
SAVEMETHOD:Resource
SAVECHANGES:true
PICTURE
NAME:Picture1
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Resource
PATH:FindPic
TOPLEFT:-1,0
RECT:-1,0,332,202
FITTOFRAME:false
HASFRAME:false
MASK:false
SCROLL:0,0
TRIMRECT:-1,-1,-1,-1
USERDATA:
INKMODE:srcCopy
COLORTABLEID:0
DITHER:false
PICTURE
NAME:Dots
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Resource
PATH:Dots
TOPLEFT:2,3
RECT:2,3,13,55
FITTOFRAME:false
HASFRAME:false
MASK:true
SCROLL:0,0
TRIMRECT:-1,-1,-1,-1
USERDATA:
INKMODE:srcCopy
COLORTABLEID:0
DITHER:false
PICTURE
NAME:Dot
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Resource
PATH:Dot
TOPLEFT:2,3
RECT:2,3,12,14
FITTOFRAME:false
HASFRAME:false
MASK:true
SCROLL:0,0
TRIMRECT:-1,-1,-1,-1
USERDATA:
INKMODE:srcCopy
COLORTABLEID:0
DITHER:false
TEXT
NAME:DesignCount
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:111,3,144,17
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:true
SELECTABLE:true
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Right
PAGEBREAKTABLE:
TEXT
NAME:TurnSignalsCount
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:111,16,144,30
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:true
SELECTABLE:true
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Right
PAGEBREAKTABLE:
TEXT
NAME:ThingsCount
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:111,29,144,43
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:true
SELECTABLE:true
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Right
PAGEBREAKTABLE:
TEXT
NAME:SupplementCount
VISIBLE:true
SCRIPT:
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:111,42,144,56
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:true
SELECTABLE:true
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Right
PAGEBREAKTABLE:
TEXT
NAME:DesignFinds
VISIBLE:false
SCRIPT:put @WindowName into wn┬
put @ClickLine into cl┬
put @Target into targ┬
get the designfinds_textdata of window wn┬
if cl <> ""┬
then┬
get line cl of it┬
hiliteline wn,targ,cl┬
if last char of it = "┬" then delete last char of it┬
put the UserData of window @WindowName into thetext┬
if it <> "" then gotofoundpage 2,it,thetext┬
set the runhandler of window @WindowName to unhiliteline┬
end if
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:3,60,142,195
HASFRAME:true
INSET:1
TRANSPARENT:false
EDITABLE:false
SELECTABLE:false
PAGE:1
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:true
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Geneva
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:
TEXT
NAME:TurnSignalsFinds
VISIBLE:false
SCRIPT:put @WindowName into wn┬
put @ClickLine into cl┬
put @Target into targ┬
get the TurnSignalsFinds_textdata of window wn┬
if cl <> ""┬
then┬
get line cl of it┬
hiliteline wn,targ,cl┬
if last char of it = "┬" then delete last char of it┬
put the UserData of window @WindowName into thetext┬
if it <> "" then gotofoundpage 3,it,thetext┬
set the runhandler of window @WindowName to unhiliteline┬
end if
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:3,60,142,195
HASFRAME:true
INSET:1
TRANSPARENT:false
EDITABLE:false
SELECTABLE:false
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:true
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Geneva
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:
TEXT
NAME:ThingsFinds
VISIBLE:false
SCRIPT:put @WindowName into wn┬
put @ClickLine into cl┬
put @Target into targ┬
get the ThingsFinds_textdata of window wn┬
if cl <> ""┬
then┬
get line cl of it┬
hiliteline wn,targ,cl┬
if last char of it = "┬" then delete last char of it┬
put the UserData of window @WindowName into thetext┬
if it <> "" then gotofoundpage 4,it,thetext┬
set the runhandler of window @WindowName to unhiliteline┬
end if
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:3,60,142,195
HASFRAME:true
INSET:1
TRANSPARENT:false
EDITABLE:false
SELECTABLE:false
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:true
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Geneva
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:
TEXT
NAME:SupplementFinds
VISIBLE:false
SCRIPT:put @WindowName into wn┬
put @ClickLine into cl┬
put @Target into targ┬
get the SupplementFinds_textdata of window wn┬
if cl <> ""┬
then┬
get line cl of it┬
hiliteline wn,targ,cl┬
if last char of it = "┬" then delete last char of it┬
put the UserData of window @WindowName into thetext┬
if it <> "" then gotofoundpage 5,it,thetext┬
set the runhandler of window @WindowName to unhiliteline┬
end if
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:3,60,142,195
HASFRAME:true
INSET:1
TRANSPARENT:false
EDITABLE:false
SELECTABLE:false
PAGE:0
NUMBEROFPAGES:0
SCROLL:0,0
HASVSCROLL:true
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:1,0
DEFAULTFONT:Geneva
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA:
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:
TEXT
NAME:DesignLabel
VISIBLE:true
SCRIPT:put @WindowName into wn┬
put @Target into tn┬
set lockscreen of window wn to true┬
do "get the"&&tn&"_Rect of window"&"e&wn"e┬
get "2,"& item 2 of it┬
set the Dot_Topleft of window wn to it┬
get tn┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
put "Finds" after it┬
set the Designfinds_visible of window wn to false┬
set the TurnSignalsfinds_visible of window wn to false┬
set the Thingsfinds_visible of window wn to false┬
set the Supplementfinds_visible of window wn to false┬
do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
set lockscreen of window wn to false
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:1,3,143,17
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:false
SELECTABLE:false
PAGE:0
NUMBEROFPAGES:1
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:19,18
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA: In Design of╔
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:1
TEXT
NAME:TurnSignalsLabel
VISIBLE:true
SCRIPT:put @WindowName into wn┬
put @Target into tn┬
set lockscreen of window wn to true┬
do "get the"&&tn&"_Rect of window"&"e&wn"e┬
get "2,"& item 2 of it┬
set the Dot_Topleft of window wn to it┬
get tn┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
put "Finds" after it┬
set the Designfinds_visible of window wn to false┬
set the TurnSignalsfinds_visible of window wn to false┬
set the Thingsfinds_visible of window wn to false┬
set the Supplementfinds_visible of window wn to false┬
do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
set lockscreen of window wn to false
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:1,16,143,30
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:false
SELECTABLE:false
PAGE:1
NUMBEROFPAGES:1
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:22,21
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA: In Turn Signals╔
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:1
TEXT
NAME:ThingsLabel
VISIBLE:true
SCRIPT:put @WindowName into wn┬
put @Target into tn┬
set lockscreen of window wn to true┬
do "get the"&&tn&"_Rect of window"&"e&wn"e┬
get "2,"& item 2 of it┬
set the Dot_Topleft of window wn to it┬
get tn┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
put "Finds" after it┬
set the Designfinds_visible of window wn to false┬
set the TurnSignalsfinds_visible of window wn to false┬
set the Thingsfinds_visible of window wn to false┬
set the Supplementfinds_visible of window wn to false┬
do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
set lockscreen of window wn to false
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:1,29,143,43
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:false
SELECTABLE:false
PAGE:0
NUMBEROFPAGES:1
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:21,20
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA: In Things That╔
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:1
TEXT
NAME:SupplementLabel
VISIBLE:true
SCRIPT:put @WindowName into wn┬
put @Target into tn┬
set lockscreen of window wn to true┬
do "get the"&&tn&"_Rect of window"&"e&wn"e┬
get "2,"& item 2 of it┬
set the Dot_Topleft of window wn to it┬
get tn┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
delete last char of it┬
put "Finds" after it┬
set the Designfinds_visible of window wn to false┬
set the TurnSignalsfinds_visible of window wn to false┬
set the Thingsfinds_visible of window wn to false┬
set the Supplementfinds_visible of window wn to false┬
do "set the"&&it&"_visible of window"&"e&wn"e&&"to true"┬
set lockscreen of window wn to false
CURSOR:128
TYPE:Describe
PATH:@StackPath:Sample Text:myTextFile
RECT:1,42,143,56
HASFRAME:false
INSET:1
TRANSPARENT:true
EDITABLE:false
SELECTABLE:false
PAGE:1
NUMBEROFPAGES:1
SCROLL:0,0
HASVSCROLL:false
LINEHEIGHTFONTASCENT:-1,-1
SELECTION:20,19
DEFAULTFONT:Palatino
DEFAULTSIZE:9
DEFAULTSTYLE:plain
TEXTDATA: In Supplements
USERDATA:
MOVEMOUSETICKS:0
ALIGNMENT:Default
PAGEBREAKTABLE:1
TRANSPARENTBUTTON
NAME:TurnSignalsGray
VISIBLE:true
SCRIPT:
CURSOR:128
RECT:1,16,143,29
HASFRAME:false
USERDATA:
ISTRANSPARENT:false
RGBFILLCOLOR:0,0,0
INKMODE:subPin
TRANSPARENTBUTTON
NAME:DesignGray
VISIBLE:true
SCRIPT:
CURSOR:128
RECT:1,3,143,16
HASFRAME:false
USERDATA:
ISTRANSPARENT:false
RGBFILLCOLOR:0,0,0
INKMODE:subPin
TRANSPARENTBUTTON
NAME:ThingsGray
VISIBLE:true
SCRIPT:
CURSOR:128
RECT:2,29,144,42
HASFRAME:false
USERDATA:
ISTRANSPARENT:false
RGBFILLCOLOR:0,0,0
INKMODE:subPin
TRANSPARENTBUTTON
NAME:SupplementGray
VISIBLE:true
SCRIPT:
CURSOR:128
RECT:2,42,144,56
HASFRAME:false
USERDATA:
ISTRANSPARENT:false
RGBFILLCOLOR:0,0,0
INKMODE:subPin
HANDLER
NAME:UnHiliteLine
SCRIPT:get "set the"&&@Target&"_Selectable of window"&"e&@WindowName"e&&"to false"┬
do it